home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G02F / G02_KAWA.Dxr / 00051.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  1.8 KB  |  90 lines
  1. global g_no, jumplistkey
  2.  
  3. on startMovie
  4.   set mycursor to [1, 43]
  5.   set the cursor of sprite 6 to mycursor
  6.   set the cursor of sprite 7 to mycursor
  7.   set the cursor of sprite 14 to mycursor
  8.   set the cursor of sprite 15 to mycursor
  9.   set the cursor of sprite 17 to mycursor
  10.   set jumplistkey to ["G1", "G2", "G3", "G4", "G5", "G6", "G7", "G8", "G9", "G10", "G11", "G12"]
  11.   set volset to the soundLevel
  12.   if the soundEnabled = 0 then
  13.     set the soundEnabled to 1
  14.   end if
  15. end
  16.  
  17. on donext
  18.   if (g_no + 1) = 13 then
  19.     set g_no to 0
  20.   end if
  21.   go(getAt(jumplistkey, g_no + 1))
  22. end
  23.  
  24. on doback
  25.   if (g_no - 1) = 0 then
  26.     set g_no to 13
  27.   end if
  28.   go(getAt(jumplistkey, g_no - 1))
  29. end
  30.  
  31. on doexit
  32.   sound stop 1
  33.   go("M2", "@::JMACMENU")
  34. end
  35.  
  36. on crtopen
  37.   puppetSprite(12, 1)
  38.   repeat while the stillDown
  39.     set the memberNum of sprite 12 to 39
  40.     updateStage()
  41.   end repeat
  42.   set the memberNum of sprite 12 to 38
  43.   updateStage()
  44.   puppetSprite(12, 0)
  45. end
  46.  
  47. on crtclose
  48.   puppetSprite(13, 1)
  49.   repeat while the stillDown
  50.     set the memberNum of sprite 13 to 41
  51.     updateStage()
  52.   end repeat
  53.   set the memberNum of sprite 13 to 40
  54.   updateStage()
  55.   puppetSprite(13, 0)
  56. end
  57.  
  58. on crtback
  59.   puppetSprite(21, 1)
  60.   repeat while the stillDown
  61.     set the memberNum of sprite 21 to 35
  62.     updateStage()
  63.   end repeat
  64.   set the memberNum of sprite 21 to 34
  65.   updateStage()
  66.   puppetSprite(21, 0)
  67. end
  68.  
  69. on crtnext
  70.   puppetSprite(20, 1)
  71.   repeat while the stillDown
  72.     set the memberNum of sprite 20 to 33
  73.     updateStage()
  74.   end repeat
  75.   set the memberNum of sprite 20 to 32
  76.   updateStage()
  77.   puppetSprite(20, 0)
  78. end
  79.  
  80. on crtclose2
  81.   puppetSprite(22, 1)
  82.   repeat while the stillDown
  83.     set the memberNum of sprite 22 to 37
  84.     updateStage()
  85.   end repeat
  86.   set the memberNum of sprite 22 to 36
  87.   updateStage()
  88.   puppetSprite(22, 0)
  89. end
  90.